home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / general / True.st < prev    next >
Text File  |  2000-02-13  |  373b  |  18 lines
  1. Class True :Boolean
  2. [
  3.    ifTrue:  trueAlternativeBlock  ifFalse: falseAlternativeBlock
  4.       ^ trueAlternativeBlock value
  5. |   
  6.    ifFalse: falseAlternativeBlock ifTrue:  trueAlternativeBlock
  7.       ^ trueAlternativeBlock value
  8. |    
  9.    ifTrue:  trueAlternativeBlock
  10.       ^ trueAlternativeBlock value
  11. |
  12.    ifFalse: falseAlternativeBlock
  13.       ^ nil
  14. |
  15.    not
  16.       ^ false
  17. ]
  18.